Option Explicit
Sub Q_Sample040()
    ']wޥζ Windows Script Host Object Model
    Dim myWsh As IWshRuntimeLibrary.WshShell
    Set myWsh = CreateObject("Wscript.Shell")
    Debug.Print myWsh.PopUp(Text:="WSH", _
        SecondsToWait:=2, Title:="WSHPopUp", Type:=2)
    Set myWsh = Nothing						'
End Sub
